home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Devpac 2.12 disk 1.adf / include / exec / initializers.i < prev    next >
Text File  |  1988-10-06  |  483b  |  42 lines
  1.     IFND    EXEC_INITIALIZERS_I
  2. EXEC_INITIALIZERS_I    SET    1
  3. INITBYTE    MACRO
  4.     DC.B    $e0
  5.     DC.B    0
  6.     DC.W    \1
  7.     DC.B    \2
  8.     DC.B    0
  9.     ENDM
  10. INITWORD    MACRO
  11.     DC.B    $d0
  12.     DC.B    0
  13.     DC.W    \1
  14.     DC.W    \2
  15.     ENDM
  16. INITLONG    MACRO
  17.     DC.B    $c0
  18.     DC.B    0
  19.     DC.W    \1
  20.     DC.L    \2
  21.     ENDM
  22. INITSTRUCT    MACRO
  23.     DS.W    0
  24.     IFC    '\4',''
  25. COUNT\@    SET    0
  26.     ENDC
  27.     IFNC    '\4',''
  28. COUNT\@    SET    \4
  29.     ENDC
  30. CMD\@    SET    (((\1)<<4)!COUNT\@)
  31.     IFLE    (\2)-255
  32.     DC.B    (CMD\@)!$80
  33.     DC.B    \2
  34.     MEXIT
  35.     ENDC
  36.     DC.B    CMD\@!$0C0
  37.     DC.B    (((\2)>>16)&$0FF)
  38.     DC.W    ((\2)&$0FFFF)
  39.     ENDM
  40.     ENDC
  41.  
  42.